home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / ftransd_2.1a / arexx-scripts / ftblock.ced next >
Text File  |  1995-09-28  |  3KB  |  82 lines
  1. /* $VER: FTBlock.ced 1.0 (28.09.95)
  2.  *
  3.  * FTrans-CygnusEd ARexx-Script (c) Copyright 1995 by Rainer Hess
  4.  *
  5.  * Übersetzt einen markierten Block in eine andere Sprache.
  6.  *
  7.  * -------------------------------------------------------------
  8.  * WICHTIG: In Zeile 20 den richtigen Pfad für FTrans angeben!
  9.  *        z.B. WORK:FTrans/FTrans
  10.  * -------------------------------------------------------------
  11.  */
  12.  
  13. cr='0A'x
  14.  
  15. FTRANSPATH = 'RUN WORK:FTrans/FTrans'
  16. blockIn       = 'T:blockIn'
  17. blockOut   = 'T:blockOut'
  18.  
  19. options results
  20.  
  21. STATUS 69                                             /* Abfrage ob ein Block markiert ist     */
  22.   if (result= -1) then do                             /* Ist ein Block markiert?               */
  23.      OKAY1 "Es muß zuerst ein Block markiert werden!" /* Kein markierter Block vorhanden       */
  24.     exit                                              /* Programm beenden                      */
  25.   end                                                 /* Weiter im Programm                    */
  26.  
  27. STATUS 82                        /* Ist die Datei editierbar? */
  28.   if (result = 0) then do
  29.      OKAY2 "Datei ist nicht editierbar! Soll auf " || cr || "'Datei editierbar' umschaltet werden?"
  30.      if result = 0 then  exit 0
  31.    EDITABLE FILE
  32.   end
  33.  
  34. STATUS 11     /* STATUS LAYOUT */                     /* Layout Abfragen                       */
  35.   if (result = 0) then do                             /* Mit Layout hin-und-her schalten gibts Probleme */
  36.      LAYOUT                                           /* Ist Layout ausgeschaltet?, Wenn ja, dann Layout einschalten */
  37.      on = 1                                           /* damit auch vertikale Blöcke korrekt übersetzt werden */
  38.   end
  39.  
  40. CUT BLOCK                                             /* Lösche den Original-Block          */
  41. SAVE BLOCK TO FILE blockOut 1                         /* Speichere Block in eine Hilfsdatei */
  42.  
  43. /*----------------------------------------------------*/
  44. start = show("P", "FTRANS.1")            /* Läuft FTrans schon? */
  45.   if (Start = 0) then do
  46.      address command FTRANSPATH            /* Wenn FTRans nicht läuft, FTrans starten. */
  47.      address command WaitForPort FTRANS.1    /* Warte bis FTrans gestartet ist */
  48.   end
  49.  
  50. address 'FTRANS.1'        /* ARexx-Port von FTrans aktivieren */
  51.  
  52. LockGUI                /* Eingaben über die GUI sperren */
  53.  
  54. VORSCHLAG
  55. old_vorschlag = result        /* alten Zustand merken */
  56.  
  57. AUTOLERNEN
  58. old_autolernen = result        /* alten Zustand merken */
  59.  
  60. VORSCHLAG OFF            /* Ausschalten */
  61. AUTOLERNEN OFF            /* Ausschalten */
  62.  
  63. FTText blockOut blockIn        /* Block zum übersetzen übergeben */
  64.  
  65. VORSCHLAG old_vorschlag        /* alten Zustand wieder herstellen */
  66. AUTOLERNEN old_autolernen    /* alten Zustand wieder herstellen */
  67.  
  68. UnlockGUI            /* GUI wieder freigeben */
  69.  
  70. /*----------------------------------------------------*/
  71.  
  72. address "rexx_ced"        /* ARexx-Port von CygnusEd */
  73. INCLUDE FILE blockIn        /* Übersetzten Block einfügen */
  74.  
  75. if( on = 1 ) then do        /* Layout war eingeschaltet, */
  76.   layout            /* dann wieder aktivieren    */
  77. end
  78.  
  79. address command "delete >NIL:" blockIn blockOut        /* Hilfsdateien wieder löschen */
  80.  
  81. exit 0
  82.